home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / system / pc_dcl.zip / RFILE.DCL < prev    next >
Text File  |  1991-11-11  |  227b  |  11 lines
  1. set verify
  2. open /read/error=ferror /length=10 infile toto.dat 
  3. !open /read/error=ferror infile toto.dat
  4. loop:
  5. read infile record /end=ferror /error=ferror 
  6. write SYS$OUTPUT record
  7. goto loop
  8. close infile
  9. ferror:
  10. exit
  11.